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SECTION  1.  INTRODUCTION 

1.1  Purpose  o1  the  Validation  Suaaary  Report 

The  purpose  of  the  Validation  SuBiir.ary  Report  (VSR)  is  to  identify  individual 
COBOL  lanouape  eleaents  whose  i up le«e nt a t ion  does  not  confor*  to  Aaerican 
National  Standard  Prooraaiming  Language  COBOL*  X3. 23-1974*  and  to  federal  Stan- 
dard COBOL  as  adopted  from  the  American  National  Standard  by  Federal  Information 
Processing  Standard  21-1  (FIPS  PUB  21-1). 

1.2  Preparation  of  the  VSR 

The  Validation  Summary  Report  is  prepared  by  analyzing  the  results  of  running 
the  COBOL  Compiler  Validation  System  (CCVS).  The  COBOL  Compiler  Validation 
System  consists  of  audit  routines  containing  features  of  Federal  Standard  COBOL* 
their  related  data*  and  an  executive  routine  (VP-routine)  which  prepares  the 
audit  routines  for  compilation.  Each  audit  routine  is  a COBOL  prcoram  which 
includes  many  tests  and  supporting  procedures  indicating  the  result  of  the 
tests. 

The  testing  of  a compiler  in  a particular  hardware/operating  system  environment 
is  accomplished  by  compiling  and  executing  each  audit  routine.  The  report  pro- 
duced by  each  routine  tells  whether  the  compiler  passed  or  failed  the  tests  in 
the  routine.  If  the  compiler  rejects  some  language  elements  by  terminating 
compilation*  giving  fatal  diagnostic  messages*  or  terminating  execution  abnor- 
mally* then  the  test  containing  the  code  the  compiler  was  unable  tc  process  is 
deleted  and  the  audit  routine  compilation  and  execution  repeated. 

The  compilation  listings  and  the  output  reports  of  the  audit  routines  con- 
stitute the  raw  data  from  which  the  members  of  the  Federal  COBOL  Compiler 
Testing  Service  produce  a Validation  Summary  Report. 

1.3  Organization  of  the  VSR 

The  Validation  Summary  Report  is  made  up  of  several  sections  the  contents  of 
which  are  described  below. 

a.  Section  2 summarizes  the  results  of  the  compilation  and  execution 
of  the  programs  comprising  the  COBOL  Compiler  Validation  System.  Section  2 

is  subdivided  into  a subsection  representing  each  level  of  each  module  defined 
in  American  National  Standard  F>rogramming  Language  COBOL*  X3. 23-1974.  Each 
subsection  contains  a list  of  all  of  the  lanouage  elements  which  must  be 
impleiented  in  order  to  claim  support  of  that  le ve I /modu le . The  list  of 
language  elements  will  be  annotated  to  include  a description  of  both  syntax 
and  semantic  errors  detected  during  the  validation. 

b.  Section  3 - FIPS  PUB  21-1  defines  four  Federal  levels  of  the  COBOL 
Standard.  Section  3.1  of  the  VSR  lists  the  discrepancies  described  in  Section  2 
by  the  Federal  level  in  which  the  problem  occurs.  Section  3.2  lists  discrepan- 
cies for  the  Report  Writer  Nodule*  which  is  not  a part  of  Federal  Standard 
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COBOL. 


c.  Section  A contains  inioroation  which  describes  the  software  enwiron- 
aent  in  which  the  compiler  was  tested.  This  includes  the  name  one  version  of 
the  operating  system;  the  i mp  lement or-nanes  which  were  used  in  the  Environment 
Division  of  the  programs  comprising  the  CCVS;  the  options  used  with  the  com- 
piler; and  if  applicable^  information  regarding  the  use  of  compiler  optimiza- 
tion features. 

d.  Section  5 contains  the  results  of  the  ASCII  validation.  The  purpose 
of  these  tests  is  to  ascertain  whether  magnetic  tapes  written  in  ASCII  code  and 
with  ANSI  standard  labels^  and  card  decks  with  ASCII  code«  can  be  transported 
between  the  system  being  validated  and  a foreign  computer  system. 

e.  Appendix  A is  the  Validation  Summary  Working  Document/  a workino 
paper  resulting  from  the  compilation  and  execution  of  the  CCVS/  and  from  which 
the  VSR  is  derived. 

1.A  Abstract  Covering  Compliance  to  ANS  COBOL 

Definition  of  an  Implementation  of  American  National  Standard  Programming 
Language  COBOL  (excerpts  from  X3.23-T97A/  Chapter  1/  Section  1.5). 

An  implementation  is  defined  to  meet  the  requirements  of  the  American 
Naticnal  Standard  COBOL  specification  if  that  implementation  includes  a 
fully  implemented  specified  level  of  each  of  the  functional  processing 
modules  and  of  the  Nucleus  as  defined  in  this  Standard.  It  follows  from 
this  that/  in  order  to  meet  the  requirements  of  this  Standard/  an  ieple- 
mentation  must: 

a.  hot  require  the  inclusion  of  substitute  or  additional  larguaqe  ele- 
ments in  the  source  program/  in  order  to  accomplish  any  part  of  the  function 
of  any  of  the  standard  language  elements. 

b.  Accept  all  standard  language  elements  contained  in  a given  level 
of  a module  which  is  specified  as  being  included  in  the  implementation/ 
except  a^  specifically  exempted  (as  pertaining  to  specific  hardware  components 
for  which  support  is  not  claimed).  See  "Elements  that  Pertain  to  Specific 
Hardware  Components”  below. 

These  points  are  of  particular  pertinence  in  two  areas: 

(1)  There  are  throughout  the  American  National  Standard  COBOL 
specification  certain  language  elements  whose  syntax/  or  effect/  is  specified 
to  be/  in  part/  implementor-defined.  While  the  implementor  specifies  the 
constraints  on  that  portion  of  each  element’s  syntax  or  rules  that  is  indi- 
cated in  this  Standard  to  be  implementor-defined/  such  constraints  may  not 
include  any  requirement  for  the  inclusion  in  the  source  program  of  sub- 
stitute or  additional  language  elements. 

(2)  When  a function  is  provided  outside  the  source  program  that 
accomplishes  a function  specified  by  any  particular  standard  COBOL  element/ 
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then  the  lap  I eaent at i on  Bust  not  reouire/  except  for  Environaent  Division 
eleaents/  the  specification  of  that  external  function  in  place  of  or  in 
addition  to  that  standard  languaoe  eleaent: 

The  following  Qualifications  apply  to  the  Aaerican  National  Standard  COBOL 
specif i cat  ion : 

a.  There  are  certain  language  eleaents  which  pertain  to  specific  types 
of  hardware  coaponents.  In  order  for  an  iap leaen t a t i on  to  aeet  the  reguire- 
aents  of  this  standard/  the  iapleaentor  Bust  specify  the  ainiaua  hardware 
configuration  required  for  that  iapleaentation  and  the  hardware  ccrponents 
that  it  supports.  Further/  when  support  is  thus  claiaed  for  a specific  hard- 
ware coaponent/  all  standard  language  eleaents  that  pertain  to  that  coaponent 
Bust  be  iapleaented  if  the  aodule  in  which  they  appear  is  included  in  the 
iapleaentation.  Language  eleaents  that  pertain  to  specific  hardware  coa- 
ponerts  for  which  support  is  not  claiaed/  need  not  be  iapleaented.  However/ 
the  absence  of  such  eleaents  froa  an  iapleaentation  of  Aaerican  National 
Standard  COBOL  aust  be  specified. 

b.  An  iapleaentation  of  Aaerican  National  Standard  COBOL  aay  include 
the  ENTER  stateaent  or  not/  at  the  option  of  the  iapleaentor. 

c.  An  iapleaentation  that  includes/  in  addition  to  a specified  level  of 
each  of  the  functional  processing  aodules  and  of  the  Nucleus/  eleaents  or 
functions  that  either  are  not  defined  in  the  Aaerican  National  Standard  COBOL 
specification  or  are  defined  in  a given  level  of  a standard  aodule  not  other- 
wise included  in  the  iapleaentation/  aeets  the  reguireaents  of  this  Standard. 
This  is  true  even  though  it  aay  iaply  the  extension  of  the  list  of  reserved 
words  by  the  iapleaentor/  and  prevent  proper  coapilation  of  soae  prooraas  that 
aeet  the  reouireaents  of  this  Standard.  The  iapleaentor  oust  specify  any 
optional  language  (language  not  defined  in  a specified  level  but  defined  else- 
where in  the  Standard)  or  extensions  (language  eleaents  or  functions  not 
defined  in  this  Standard)  that  are  included  in  the  iapleaentation. 

d.  In  general/  the  Aaerican  National  Standard  COBOL  specification 
specifies  no  upper  liait  on  such  things  as  the  nuaber  of  stateaents  in  a pro- 
graa/  the  nuaber  of  operands  peraitted  in  certain  stateaents/  etc.  It  is 
recognized  that  these  liaits  will  vary  froa  one  iapleaentation  of  Aaerican 
National  Standard  COBOL  to  another  and  aay  prevent  the  proper  coapilation  of 
soae  prograas  that  aeet  the  reguireaents  of  this  standard. 

INPLENENTOR-OEE INEO  LANGUAGE  SPECIFICATIONS 

The  language  eleaents  in  the  following  lists  depend  on  iapleaentor  defini- 
tions to  coaplete  the  specificaton  of  the  syntax  or  rules  for  the  eleaents. 

The  eleaents  whose  syntax  is  partly  iap leaent t r-def i ned  are: 

Eleaent  lap  I eaent or-Oef i ned  Aspect 


SOURCE-COPPUTER  paragraph  coaputer-naae 
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conput  er-nane 
integer 

iapleaentor-naae;  whether  iaple- 
aientor-naaes  are  provided. 

iapleaentor-nane 

iapleaentor-nane 

iap  I eaent or-name ; whether  iap  lenent o r~ 
naaes  are  provided. 

iap I eaent or-naae  and  the  icra;  the 
iapleaentor  provides  at  least  one 
of  seven  specified  fores. 

relationship  between  operand  and  the 
referenced  prograa. 

relationship  between  lihrary-naae 
teat-naeer  and  the  library. 

language-naee 

The  locat ion. 

The  nunber  of  character  positions. 

The  nunber  of  qualifiers;  at  least 
five  nust  be  supported. 

The  eleaents  whose  effect  is  partly  iap lenent or-def i ned  are: 

E leaent 

a Iphabet -nane 

iapleaentor-nane  switches 

USRGE  IS  COMPUTATIONAL 
clause 

USAGE  IS  INDEX  clause 
STNCHRONIIED  Clause 


I np lenent or-D ef i ned  Aspect 


The  correspondence  between  native  and 
foreign  character  sets. 

Whether  setting  can  change  during 
execution. 

Represent  at  ion  and  whether  autoaatic 
alignaent  occurs. 

Representation  and  whether  autoaatic 
alignaent  occurs. 

Whether  iaplicit  FILLER  positions  are 
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OBJECT-COMPUTER  paragraph 
MEMORY  SHE  clause 
a Iphabet-naae 

special-names  paragraph 
ASSIGN  clause 
VALUE  OF  clause 

RERUN  clause 

CALL  and  CANCEL  stateaents 

COPY  statenent 

ENTER  statenent 
Margin  R 
Area  B 

Qu  a I i f i cat  ion 
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generated;  their  effect  on  the  size 
of  croup  ite«s  and  redefining  iteais. 

Haxiaue  size  of  one  transfer  of  data 
in  Level  1 Nucleus. 

naiimuw  size  of  one  transfer  of  data 
in  Level  1 Nucleus. 

Representation  of  valid  sign  in  the 
absence  of  the  SIGN  IS  SEPARATE 
c I ause . 

Cofiparison  of  nonnumeric  items  Collating  sequence^  uhere  NATIVE  or 

implementor-name  collating  sequence 
is  implicitly  or  explicitly 
specified . 

Arithmetic  expressions  Number  of  places  carried  for  inter- 

mediate results. 

Elements  That  Pertain  to  Specific  Hardware  Components 

The  standard  language  elements  in  the  list  that  follows  pertain  to  specific 
types  of  hardware  components.  These  language  elements  must  he  implemented 
in  an  implementation  of  American  National  Standard  COBOL  when  support  is 
claimed/  by  the  implementor/  for  the  specific  types  of  hardware  components  to 
which  they  pertain/  and  the  module  in  which  they  are  defined  is  included  in 
that  implementation. 

Element  Hardware  Component 


ACCEPT  statement 
DISPLAY  statement 
Numeric  test 


CODE-SET  clause 

MULTIPLE  FILE  TAPE  clause 
CLOSE.. .REEL/UNIT  statement 
CLOSE. ..NO  REWIND  statement 
OPEN. ..REVERSED  statement 


OPEN. ..NO  REWIND  Statement 


Device  capable  of  supporting  the 
specified  code. 

Reel 

Reel  or  mass  storage 

Reel  or  mass  storage 

Reel  with  the  capability  cf  making 
records  available  in  the  reversed 
order;  mass-storage  with  the  cap- 
ability of  making  records  avail- 
able in  the  reversed  order. 

Reel  or  mass  storage 


OPEN.. .1-0  statement 
(Sequential  I-O  only) 


Hass  storage 
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OPEN'  EXTEND  statement 


Rrel  or  nass  storage 


REWRITE  statement 

(Sequential  1-0  only) 

SEND  . . .PEFORE /AFTER 
ADVANCING  Statement 


Mass  Storage 


Devices  capable  of  vertical  posi- 
tioning; devices  capable  cf  action 
based  on  mnemonic-names. 


USE. ..1-0  (Sequential 
I-C  only) 

WRITE  ...BEFORE/AFTER 
ADVANCING 


Mass  Storage 


Devices  capable  of  vertical  posi- 
tioning; devices  capable  of  action 
based  on  mnemoni c -name . 
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1.5  The  Federal  COBOL  Standard 

The  COBOL  coapiler  validation  results  enclosed  in  this  docunent  reflect  the 
degree  to  which  the  subject  COBOL  coeriler  iecleeents  the  federal  COBOL 
Standard.  The  Federal  COBOL  Standard  is  essentially  the  same  as  the 
American  National  Standard  Programming  Language  COBOL^  X3.23~1974i/  with  two 
exceptions; 

The  Federal  COBOL  Standard  defines  4 levels  and  the  ANSI 
Standard  defines  only  the  mirimuir  COBOL  implementation  and 
the  full  standard.  Low  and  High  levels  of  the  Federal 
COBOL  Standard  (see  1.5.1)  correspond  to  the  above  two  ANSI 
levels  (minus  the  Report  Writer  module).  Two  additional 
levels/  low- int e rmed  1 at e and  high-intermediate  have  been 
included  in  the  Federal  Standard  between  the  highest  and 
lowest  subsets.  These  additional  levels  a c coiriro  dat  e 
hardware  which  cannot  support  the  full  standard/  but  which 
is  capable  of  implementing  more  than  the  minimum  standard. 

The  federal  COBOL  Standard  states  that  the  Report  Writer  Module 
is  not  mandatory  in  any  federal  level/  but  that  the  specifica- 
tions contained  in  X3. 23-1974  should  be  used  tc  t -.e  extent 
practical/  consistent  with  requirements. 

The  Federal  COBOL  Standard  requires  that  a compiler  contain  as  a minimum  the 
elements  specified  in  at  least  one  of  the  Federal  levels.  No  restrictions  are 
imposed  on  the  inclusion  of  selected  features  from  higher  levels  cr  even  unique 
vendor  extensions.  Compa t i bi I i t y amoung  various  implementations  cf  a given 
level  containing  additional  features  must  be  controlled  by  management  imposed 
standards  and  restrictions. 

1.5.1  Federal  Standard  COBOL  Levels 

a.  Federal  Standard  COBOL  specifications  are  the  language  specifications 
contained  in  American  National  Standard  Programming  Language  COBOL/  X3. 23-1974. 
for  purposes  of  the  Federal  Standard/  the  modules  defined  in  X3. 23-1974  are 
combined  into  four  levels.  Not  all  computers  are  large  enough  to  accommodate  a 
COBOL  compiler  containing  the  full  ANSI  Standard.  Therefore/  the  federal 
Government  reouires  that  all  compilers  acouired  by  its  agencies  contain  as  a 
minimum  one  of  the  four  Federal  levels/  depending  on  machine  size/  configuration 
and  user  needs.  The  knowledge  that  all  computers  will  support  at  least  one  of 
these  four  subsets  simplifies  the  task  of  developing  machine-independent  COBOL 
programs. 

b.  The  four  levels  of  Federal  Standard  COBOL  are  identified  as:  Low/ 
Low-Intermediate/  H iqh-In te rmed iat e/  and  High.  Each  Federal  Standard  COBOL 
level  is  composed  of  either  the  high  or  low  levels  of  the  nucleus  and  ten  of 
the  eleven  Functional  Processing  Modules  (FPMs)  defined  in  X3. 23-1974. 

The  four  Federal  Standard  COBOL  levels  are  reflected  in  the  following  table. 

The  numbers  in  the  table  refer  to  the  level  within  the  fPM  or  nucleus  as 
designated  in  X3. 23-1974/  and  a dash  in  the  table  denotes  that  the  corres- 
ponding FPM  is  omitted. 
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F 


Low 
Leve  1 

Low 

Inter- 
aedi ate 
Leve  1 

High 
Inter- 
aediate 
Leve  1 

High 

Leve  1 

NUCLEUS 

1 

1 

2 

2 

F P(«s 

TABLE  HANDLING 

1 

1 

2 

2 

SEOUEN'TIAL  1-0 

1 

1 

2 

2 

RELATIVE  1-0 

- 

1 

2 

2 

INDEXED  I-C 

- 

- 

- 

2 

S0RT-RER6E 

- 

- 

1 

2 

REPORT  WRITER 

- 

- 

- 

SEGHENTATICN 

- 

1 

1 

2 

library 

- 

1 

1 

2 

DEBUG 

- 

1 

2 

2 

INTER-PROGRAB 

COMMUNICATION 

- 

1 

2 

2 

COMMLNICATION 

2 

2 

1.5.2  Confcrnance  to  Federal  Standard  COBOL 

A tonpiler  iapleaented  in  conformance  to  Federal  Standard  COBOL  Bust  aeet  at 
least  the  following  regui resents. 

a.  the  isp I eaent at  ion  nust  include  all  of  the  language  elenents  of  at 
least  one  of  the  levels  of  Federal  Standard  COBOL. 

b.  The  ispleaent at i on  oust  seet  all  of  the  reouireaents  defined  in 
Aserican  National  Standard  COBOL/  X3. 23-1974#  Section  I#  paragraph  1.5#  Defini- 
tion of  An  lap lesent a t ion  of  Aaerican  National  Standard  COBOL  which  is  pro- 
vided in  section  1.4  of  this  VSR.'- 

c.  The  iap I enent at i on  aust  provide  a facility  for  the  user  to  optionally 
specify  a level  of  Federal  Standard  COBOL  for  aonitoring  his  source  prograa 

at  eoapile  tiae.  The  aonitoring  will  be  an  analysis  of  the  syntax  used  in  a 
source  prooraa  against  the  syntax  included  in  the  specified  level  cf  Federal 
Standard  COBOL.  Any  syntax  used  in  the  source  prograa  that  does  not  conforn 
to  that  allowed  by  the  user  selected  level  of  Federal  Standard  COBOL  will  be 
diagnosed.  The  syntax  diagnosed  as  not  conforaing  to  the  specified  level  will 
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be  identified  to  the  user  through  a diagnostic  aessage  on  the  source  orograa 
listing.  The  diagnostic  aessage  will  contain/  at  least:  (1)  The  identification 
of  the  source  progran  line  nuaber  in  which  the  noncon f ora ing  syntax  occurs/ 

(?)  the  identification  of  the  level  of  Federal  Standard  COBOL  that  supports 
the  syntax  or  that  the  syntax  is  nonstandard  COBOL. 

1.6.  Use  of  the  VSR 

The  Federal  COBOL  Compiler  Testing  Service  aay  rake  full  and  free  public 
disclosure  of  the  Validation  Suarary  Report  (VSR)  in  accordance  with  the 
“Freedom  of  Information  Act"  (5  U.S.C.  A532).  The  results  of  the  validation 
are  only  for  the  purpose  of  satisfyino  United  States  Government  requirements/ 
and  apply  only  to  the  computer  system/  operating  system  release/  and  compiler 
version  identified  in  the  VSR. 

The  COBOL  Compiler  Validation  System  is  used  to  determine/  insofar  as  is 
practical/  the  degree  to  which  the  subject  compiler  conforms  to  the  COBOL 
Standard.  Thus/  the  VSR  is  necessarily  discretionary  and  judgmental.  The 
United  States  Government  does  not  represent  or  warrant  that  the  stateeents/ 
or  any  one  of  them/  set  forth  in  the  VSR  are  accurate  or  complete.  The  VSR 
is  not  meant  to  be  used  for  the  purpose  of  publicizing  the  findings  summarized 
t herein. 

1.7  Sources  of  Additional  Information 

FIPS  PUB  21-1  defines  the  Federal  COBOL  Language  Standard.  This  publication 
is  available  from  the  Office  of  ADP  Standards  Management/  Mational  Bureau  of 
Standards/  Vashington/  D.  C./  20234. 

The  detailed  COBOL  language  specifications  are  given  in  the  publication 
"American  hational  Standard  Programming  Language  COBOL/  X3. 23-1974"/  available 
from  the  American  National  Standards  Institute/  1430  Broadway/  New  York/  New 
York  10018. 

An  explanation  of  the  COBOL  Compiler  Validation  System  is  contained  in  the 
CCVS  User's  Guide.  This  document  explains  how  to  run  the  compiler  validation 
system.  The  User's  Guide  and  a magnetic  tape  containino  a copy  of  the  CCVS 
programs  are  available  from  the  National  Technical  Information  Service/ 
Springfield/  Virginia/  22151.  (Ordering  information  can  be  obtained  from 
the  Federal  COBOL  *Compiler  Testing  Service.) 

1.8.  Requests  for  Interpretation 

Ouestions  regarding  this  VSR  or  the  CCVS  in  general  should  be  forwarded  to  the 
FCCTS.  If  any  problem  cannot  be  adequately  resolved  through  the  FCCTS/  the 
request  for  interpretation  will  be  forwarded  to  the  Federal  COBOL  Interpretation 
Committee  for  final  resolution. 

A brochure  describing  the  validation  process  including  the  procedures  for 
requesting  a validation  and  resolution  of  questions  involving  interpretation 
of  the  current  Federal  Standard  is  available  from  the  Department  of  the  Navy/ 
Federal  COBOL  Compiler  Testing  Service/  Washington/  D.C.  20376. 
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1.9  f*odules  and  Language  Flenents  Excluded  Irom  Testing 

During  an  official  validation^  certain  CCVS  tests  nay  not  be  used/  and  certain 
facilities  provided  by  the  subject  cocpiler  may  not  be  tested. 

1.9.1  Federal  Standard  COBOL  Approved  Interpretations 

The  National  Bureau  of  Standards  published  in  the  Federal  Register  Vol.  A1 
No.  179/  Septeaber  14/  1976/  an  approved  interpretation  of  Federal  Standard 
COBOL  as  pertains  to  the  evaluation  of  arithnetic  expressions  in  the  COMPUTE 
staterents.  This  interpretation  states  that  ”site  of  the  interaediate  result 
field  is  ixip  I eaen  to  r-def  ined  . 

Since  the  results  of  evaluating  arithaetic  expressions  are  not  predictable/  alt 
COMPUTE  stateaents  and  IF  statements  containing  arithmetic  expressions  have 
been  removed  from  the  COBOL  Compiler  Validation  System.  , 

1.9.2  Report  Writer  Module 

FIPS  PUB  21-1  excludes  the  Report  Writer  Module  from  the  Federal  COBOL  Standard. 
Hovever/  the  Report  Writer  Module  is  still  tested  during  a validation  if  support 
for  that  nodule  is  claimed  by  the  compiler  vendor. 

1.9.3  Conmuni c a t ion  Module 

Although  it  is  part  of  Federal  Standard  COBOL  as  defined  by  FIPS  PUB  21-1/  the 
C oamur i c at  ion  Module  is  not  currently  tested  in  the  course  of  an  official  vali- 
dation for  tuo  specific  reasons.  First/  a large  volume  of  requests  for  inter- 
pretation on  this  module  have  been  submitted  to  the  cognizant  ANSI  committee 
(X3J4)  for  resolution.  Secondly/  facilities  for  testing  were  insufficient  tc 
determine  the  validity  of  the  Communication  Module  test  programs  during  the 
development  of  CCVS74. 

1.9.4  Vendor  Omissions  or  Extensions 

Language  elements  are  not  tested  which  have  been  legitimately  omitted  from  the 
implementation  by  the  implementor  (refer  to  1.4).  Additionally/  no  implementor 
extensions  to  the  standard  COBOL  language  are  tested  in  any  way. 
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1.10  Tinelinrss  of  the  Validation  Suaaary  Reports 

The  tiaeliness  of  the  Validation  Suneary  Report  is  iaportant.  Coapilers 
and  their  related  operatinp  systen  software  are  aodified  several  tiaes  a year. 
The  Coapiler  Validation  Systea  used  to  validate  coapilers  is  also  updated 
during  the  life  of  the  systea.  Therefore  to  ensure  that  the  latest  version 
of  both  the  vendor's  coapiler  and  the  Validation  Systea  are  the  latest  offici* 
ally  released  versions/  check  with  the: 

Director 

Federal  COBOL  Coapiler  Testing  Service 
Oepartaent  of  the  Navy 
bashinoton/  D.  C.  20376 
(202)  697-1247 

Flease  use  the  Validation  Sueaary  Report  nuaber  of  this  report  when 
corresponding  with  the  Testing  Service. 
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SECTIOH  2.  DETAILED  EVALUATION  OF  ERRORS. 


This  section  sumir ar i t es  the  results  of  the  compilation  and  execution  of  the 
prograas  coaprising  the  COBOL  Compiler  Validation  System  (CCVS).  The  version 
of  the  CCVS  used  during  this  validation  is  shown  inside  the  front  cover  cf  the 
VSR. 

Section  2 is  made  up  of  a variable  number  of  subsections.  The  number  of  sub- 
sections is  dependent  on  the  Level  of  federal  COBOL  being  validated.  There  will 
be  a subsection  for  each  level  of  each  module  which  is  validated.  If  the  high 
level  of  a module  is  validated  then  there  will  be  two  subsections  for  that 
module;  one  for  the  low  level  and  one  for  the  high  level. 

A validation  of  the  low  level  of  Federal  Standard  COBOL  would  result  in  three 
subsections  beino  present.  One  for  Nucleus  level  1»  one  for  Seouential  I-O 
level  and  one  for  Table  Handlino  level  1. 

Each  error  or  deviation  noted  in  this  section  makes  reference  tc  a program  or 
functional  COBOL  module  contained  in  Appendix  A (Validation  Summary  Working 
Document).  This  reference  provides  the  documented  results  of  an  occurrence 
of  errors/deviataions  detected  during  the  running  of  the  CCVS  using  the  compiler 
within  the  environment  identified  within  this  document.  The  Valication  Summary 
Working  Document  is  presented  in  sequence  by  functional  modular  functional 
module  level  and  program  number  as  defined  below. 

Each  program  in  the  COBOL  Compiler  Validation  System  is  identifiec  by  a 5- 
character  program  name.  The  name  associates  the  routine  with  the  functional 
processing  module  and  level  of  American  National  Standard  Programming  Language 
COBOL  tested  within  the  program. 

The  five  character  name  has  the  general  format  XXNNB.  The  first  two 
characters  are  alphabetic  and  identify  the  functional  module  tested  by 
the  program.  The  permissable  values  are: 

NC  - Nucleus 
TH  - Table  Handling 
Sfi  - Sequent ial  I-O 
RL  - Relative  I-O 
IX  - Indexed  I-O 
ST  - Sort-f.erge 
RW  - Report  Writer 
SG  - Segmentation 
LB  - Library 
DB  - Debug 

IC  - Inter-Program  Communication 
CP  - Communication 


The  third  character  of  the  audit  routine  name  is  either  a 1 or  2>  and 
identifies  the  level  of  the  functional  module  being  tested.  Each  module  and 
level  is  represented  by  several  programs.  The  fourth  and  fifth  characters  of 
the  prograa  name  are  sequence  numbers  for  programs  which  test  features  in  the 
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sacF  level  of  the  saae  functional  processino  nodule. 

As  an  eiaaple/  the  prograa  nane  NC210  is  the  tenth  proqran  in  the  series  of 
routines  uhich  test  the  second  level  of  the  Nucleus  nodule. 


Description  of  Section  Z. 

Each  error /dev ia t ion  is  noted  by  number  in  the  left  hand  narqin  opposite 
the  language  element  in  question.  This  number  is  used  in  section  3 to 
categorize  errors  by  Federal  level  (See  1.5.1).  Inserted  directly  below 
the  language  element  is  a brief  description  of  the  error.  To  the  right  of 
the  langauge  element  is  a page  reference  to  X3. 23-1974.  American  National 
Standard  Frogr amm inq  Language  COBOL.  The  reference  at  the  end  of  the 
description  of  the  error  is  to  Appendix  A which  contains  the  detailed 
information  collected  durino  the  validation.  The  reference  is  mace  up 
of  the  routine  nane  followed  by  an  A or  B (A  for  compile  time  or  syntax 
error  and  B for  execution  time  or  semantic  error)  and  a number  which  makes 
the  error  unique  in  Appendix  A. 
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E « ar p I r : 

2.1  Nucleus  Level  1 


( 

I 


Operational  syebols:  S V P 11-21 

2.1.9  

• The  scaling  character  *P'  is  not  permitted  in  a 

• PICTURE  ch ar ac t er-s t r i no . 

• (NC101.R.2) 


2.2  Sequential  1-0  Level  1 


2.1.9  represents  the  ninth  error  for  Nucleus  Level  1 

11-21  represents  the  page  in  *3.25-1974  where  the  language 
eleoent  is  defined 

* Boies  the  description  of  the  e rror /dev ia t ion 

NC101.A.2  represents: 

Proqra*  naoe  - NC101 

Syntas  error  - A 
second  error  - 2 


I 

I 

I 

I 

I 

I 
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2.1  NUCLEUS  LEVEL  1 


Language  Concepts  ................  I-7S 

Characters  used  for  words  ...........  1-76 

Or  1r  ...#  9 
Ar  Br  ...#  Z 

- (hyphen  or  pinus) 

Characters  used  for  punctuation  ........  1-65 


**  quo  t atlon  aarL 
( left  parenthesis 
) right  parenthesis 
. period 
space 

~ equal  sign 

Characters  used  in  editing.  ..........  1-58 

E space 
0 1 e ro 

* plus 
- Pinus 
CR  credit 
DB  debit 

Z aero  suppress 

• check  protect 
$ currency  sign 
/ coppa 

. peri  o“W^ 

/ stroke 


Separators.  ........  ...  1-75 

The  separators,  sepicolon  and  coppb.  are  not 

allowed  ..................  11-1 

Character-strings  1-76 

COBOL  words  .................  1-76 

hot  pore  than  30  characters 

User-defined  words.  ............  1-76 

dat  a-naae 


nust  begin  with  an  alphabetic  character  11-1 

Must  be  unique;  pay  not  be  qualified.  . 11-1 

lewe  l-nupber 
pneponic-nape 
paragraph-name 
progr  ap-nape 
rout i ne-nape 
sect  ion-name 


System-names.  ...............  1-78 

copput  er-name 
implementor-name 
I angua  ge -name 

Reserved  words 1-79 

Key  words 
Optional  words 

Figurative  constants.  ..........  1-8C 

ZERO 
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SPACE 

HIGH-VALUE 

LOW-VALUE 

OUOTE 

Sp r c i al -ch sr8c t e r words  ....  1-PO 

Literals.  ..................  l-£0 

NonnuBieric  literals  have  lengths  trow  1 
through  120  characters 

Kueeric  literals  have  lengths  free  1 through 
18  digits 

PICTURE  char ac t er-st r i ngs  ..........  I-E2 

CoBBen t-en t r ie s ...............  1-82 

2.1.1  

* The  characters  COPT  within  a coBBent -ent ry  character- 

* strinn  were  syntax-scanned  and  treated  as  a COPT  verb. 

* (LP201  A.1) 


Reference  Forcat.  .....  .....  t-ICS 

Sequence  nunber  ................  1-1C5 

Area  A I-1C5 

Division  header  1-106 

Section  header.  ...............  1-1C6 

Paragraph  header.  ..............  1-107 

Data  Division  entries  ............  1-107 

Area  B I-1C5 

Paragraphs 1-107 

Data  Division  entries  ............  1-107 

Continuationof  lines  . . . . . . . . . . . . . 1-106 

2.1.2  - 


* A test  failed  which  depended  on  a data  descriptior  which. 

* together  with  its  constituent  elewentary  items,  was 

* packed  together  with  itore  than  one  level  nunber  and  data 

* description  per  line  iaage. 

* (NC205  B.1) 


Only  nonnuBeric  literals  Bay  be  continued  . . 11-1 


CoBBent  lines  .................  1-108 

Asterisk  (*)  eoraent  tines 
Stroke  (/)  coBment  line 

Identification  Division  .............  I-G4 

The  PROGRAP-ID  paragraph.  ...........  II-3 

The  AUTHOR  paragraph.  .............  11-2 

The  INSTALLATION  paragraph.  ..........  II-2 

The  DATE-WRITTEN  paragraph . II-2 

The  SECURITY  paragraph II-2 

Environment  Division.  ..............  1-9S 

The  SOURCE-COHPUTER  paragraph  11-5 

cOBput er-naBe 

The  OB JECT-CORPUTER  paragraph  11-6 


19 


CCVS74-VSR235 


conputer-nare 

WE»'0RT  SIZE  clause 

PROGRAM  COLLATING  SEQUENCE  clause 

The  SPECIAL-NAPES  paragraph  

inplenentoi — name  IS  Bneir.onic-naee 

imp  I ement or-na«e  IS  BneBonic-naBe  series 

ON  STATUS 

OFF  status 

a I phabe t-name  clause 
CURRENCY  SIGN  clause 
DECinAL-POINT  clause 

Data  Division  .....  ........ 

ko rk ing- St  or  age  Section  ............ 

The  data  description  entry 

The  plank  when  ZERO  clause 

The  data-naee  or  FILLER  clause.  ........ 

The  JUSTIFIED  clause  (may  be  abbreviated  JUST). 

Level-number 

01  through  10  (level  numbers  must  be  2 dioits) 

77 '.  . 

The  PICTURE  clause  (may  be  abbreviated  PIC)  . . 

C ha rac t e r- St r i no  may  contain  30  characters.  . 
Data  characters:  AX9. .......... 

Operational  symbols:  S V P.. ...... 

Fixed  insertion  characters 

0 (may  be  used  only  in  edited  items) 

P (may  be  used  only  in  edited  items) 

S (currency  sign) 

♦ and  - 
D6  and  CR 
/ 

Replacement  or  floating  characters.  ..... 

S (currency  sign) 

♦ and  - 
Z 

« 

Currency  sign  substitution.  ......... 

Decimal  point  substitution.  ......... 

The  REDEFINES  clause  (may  not  be  nested).  ... 
The  SIGN  clause  ................ 

The  SYNCHRONIZED  clause  (may  be  abbreviated  SYNC) 
The  USAGE  clause.  ............... 

COMPUTATIONAL  (may  be  abbreviated  COMP) 

DISPLAY 

The  VALUE  clause.  ............... 

literal 

Procedure  Division.  ............... 

Conditional  expressions  ............ 
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I- S7 

II- 11 
11-12 
11-14 
11-15 
11-16 
11-17 
11-13 
11-11 
11-18 
11-18 
11-18 
11-21 
11-21 


11-21 


11-21 

11-21 

11-27 

11-31 

11-33 

11-35 


11-36 


I- 99 

II- 41 
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Sivple  condition.  .............. 

Relation  condition.  ............ 

Relational  operators 
CNOT]  greater  Than 
CNOT]  LESS  THAN 
CN0T3  equal  TO 

Conoarison  of  nuneric  operands.  ..... 

Comparison  of  nonnueieric  operands  (oper- 
ands must  be  of  equal  size)  ..... 

Class  condition  .............. 

NOT  option 

Switch-status  condition  .......... 

The  arithmetic  statements  ..... 

Arithmetic  operands  limited  to  16  digits 
Overlapping  operands.  ............. 

The  ACCEPT  statement  (only  one  transfer  of  data) 
The  ADD  statement  ............... 

identif ier/literal  series 
TO  ident if ier 
GIVING  identifier 
ROUNDED  phrase 
SIZE  ERROR  phrase 

The  ALTER  statement  (only  one  procedure-name).  . 
The  DISPLAY  statement  (only  one  transfer  of  data) 

The  DIVIDE  statement  ....... 

INTO  ident ifier 
BY  i dent  i f ier / I i t e ra I 
GIVING  identifier 
ROUNDED  phrase 
SIZE  ERROR  phrase 

The  ENTER  statement  ............... 

The  EXIT  statement  ............... 

The  GO  TO  statement  (procedure-name  is  required) 
DEPENDING  ON  phrase 

The  IF  statement  (statements  must  be  imperative) 
ELSE  phrase 

The  INSPECT  statement  (only  single  character 

data  item)  ............ 

TALLYING  phrase 
ALL 

LEADING 
CHARACTERS 
REPLACING  phrase 
ALL 

LEADING 

FIRST 

CHARACTERS 

TALLYING  and  REPLACING  phrases 
The  POVE  statement  ............... 

TO  i dent ifier 
identifier  series 

The  MULTIPLY  statement  


11-41 

11-41 


II-42 

11-42 

11-43 

11-44 

11-51 

II-S1 

11-53 

11-55 


11-57 

11-59 

11-61 


11-63 

11-64 

11-65 

11-66 


11-68 


11-74 


11-77 
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BY  i dent i 1 ie  r 
GIVING  identifier 
ROUNDED  phrase 
SWF  ERROR  phrase 

The  PERFOPR.  stateeent 11-78 

procedure-naitie 
THRU  phrase 
TIRES  phrase 

The  STOP  statenent  ...............  II-8S 

literal 

2.1.3  

* The  STOP  literal  statement  was  not  executed  when  figurative 

* constants  were  used  for  the  literal. 

* (NC109  B.1) 


RUN 

The  SUBTRACT  stateaent  .....  11-89 

ident i f ier / I it eral  series 
FRCP  identifier 
GIVING  identifier 
ROUNDED  phrase 
SIZE  ERROR  phrase 
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2.2  NUCLEUS  LEVEL  2 

All  rlraiFnts  of  1 NUC  1^2  are  a part  of  2 NUC  1^2 


Language  Concepts 1-7S 

Characters  used  for  punctuation.  ...........  I-6S 

r coaima 

; semicolon 

Characters  used  for  arithmetic  operations.  ......  I-S2 


♦ addition 

- subtraction 

* multiplication 

/ di V is  ion 

**  eiponent i at  ion 


Characters  used  in  relations  .............  1-66 

= equal  to 

> greater  than 

< less  than 

Separators  ......................  I-7S 

The  separators^  semicolon  and  comma/  are  allowed  . . II-T 

Character-strings 1-76 

COBOL  words.  ....................  1-76 

User-defined  words  ................  1-76 

cond i t ion-name 
dat  a-n  ame 

Need  not  begin  with  an  alphabetic  character.  . II-1 

“ay  be  qualified  if  necessary  for  uniqueness  . 11-1 

Reserved  words  ..................  1-79 

Figurative  constants  ..............  1-80 


ZEROS;  ZEROES 

SPACES 

HIGH -VALUES 

LOW-VALUES 

QUOTES 

ALL  literal 

Connectives  ..................  1-79 

Qualifier  connectives;  OF/  IN 
Series  connectives:  / (separator  comma) 

and  ; (separator  semicolon) 

Logical  connectives:  AND/  OR/  AND  NOT/  OR  NCT 


Qualification  ....................  1-87 

Reference  format  ....................  1-105 

Continuation  of  lines  (continuation  of  words  and 

numeric  literals  is  allowed)  ...........  11-1 

Identification  Division.  ................  1-9A 

The  DATE-COMPILED  paragraph.  .............  II-4 

Environment  Division 

The  SPECIAL-NAMES  paragraph 11-8 

a Iphabet -name  clause 
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literal 


Data  Division.  .....................  1-97 

The  data  description  entry II-1? 

Leve I -nunber  .....................  11-17 

01  through  49  ( I eve  I -nuebe rs  Bay  be  1 or  2 digits)  . 

66 

82 

The  REDEFINES  clause  (may  be  nested)  .........  11-27 

The  RENA'iES  clause  (say  be  nested)  ..........  11-29 

data-na»e 

data-na»e  THRU  data-name 

The  VALUE  clause 11-36 


literal-1r  literal-2 
literal-1  THRU  literal-2 
literal  range  series 


Procedure  Division  ...  ...  ..............  1-99 

Arithmetic  expressions  ................  11-39 

Conditional  expressions.  ...............  11-41 

Simple  condition  ..................  11-41 

Relational  condition  ...............  11-41 


Relational  operators 
CNOTT  = 

[N0T3  > 

CNOTD  < 

Comparison  of  nonnumeric  operands  (operands  of 


unegual  size  are  allowed).  .........  11-42 

Cond  i t ion-name  condition  .............  11-44 

Sign  condition  ..................  11-44 

NOT  option 

Complex  condition.  .................  11-45 

Logical  operators  ANOr  OR/  and  NOT 

Negated  simple  condition  .............  11-46 

Combined  and  negated  combined  conditions  .....  11-46 

Abbreviated  combined  relation  condition.  ......  11-47 

2.2.1  - — 

* A test  failed  which  employs  complex  abbreviated 

* relational  and  logical  conditions. 

* (NC214  B.1) 


Multiple  results  in  arithmetic  statements.  ......  11-51 

The  ACCEPT  statement  (no  restrictions  on  the  number 

of  transfers  of  data).  .........  11-53 

FROM  phrase 

The  ADD  statement 11-55 

TO  identifier  series 
GIVING  identifier  series 
CORRESPONDING  phrase 

The  ALTER  statement.  .................  11-57 

The  series  option  is  allowed 

The  C0F1PUTE  statement 11-58 
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2.2.2 


identifier  series 
ROUNDED  phrase 
SIZE  ERROR  phrase 

The  DISPLAT  statement  (no  restrictions  on  the  nueber 

of  transfers  of  data).  ..............  II-S9 

UPON  phrase 

The  DIVIDE  statement 11-61 

INTO  identifier  series 
GIVING  identifier  series 
REMAINDER  phrase 

The  GO  TO  statement  (procedure-name  may  be  omitted).  . 11-65 

The  IF  statement  (nested  statements)  .........  11-66 

The  INSPECT  statement  ( mu  It i -ch ar ac t cr  data  items)  . . 11-68 

series 

The  ROVE  statement  ..................  11-74 

CORRESPONDING  phrase 

The  MULTIPLY  statement 11-77 

BY  identifier  series 
GIVING  identifier  series 

The  PERFORM  statement 11-78 

UNTIL  phrase 
VARYING  phrase 

The  string  statement  .................  11-86 

DELIMITED  series 
POINTER  phrase 
ON  OVERFLOW  phrase 

The  SUBTRACT  statement  11-89 

FROM  identifier  series 
GIVING  identifier  series 
CCRRESPONDING  phrase 

The  UNSTRING  statement  11-91 

DELIMITED  BY  phrase 


* 

An 

incorrect  delimiter  value 

was  returned 

to 

t he 

DELIMI  TER 

* 

IN 

identifier  when  DELIMITED 

BY  ALL  ZERO  was 

used 

with  t he 

UNSTRING  statement. 

(NC218 

B. 

1) 

POINTER  phrase 
TALLYING  phrase 
ON  OVERSOW  phrase 
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2.3  TABLE  HANDLING  LEVEL  1 


Language  Concepts 

User-defined  words.  ...............  ]-76 

i n de* -na»e 

Subscripting  - 3 levels 1-89 

Indexing  - 3 levels  . . . . . . . . 1-89 

Data  Division 

The  OCCURS  clause IIi-2 

integer  TINES 

INDEXED  BV  index-name  series 

The  USAGE  IS  INDEX  clause III-5 

Procedure  Division 

Relation  conditions  ......  111-6 

Comparisons  involving  index-names  and/or 
index  data  items 

Cverlappino  operands.  ..............  III-6 

The  SET  statement  ................  HI-11 

index-name  / i dent  i f ier  series 
index-name  S 

UP  BY  i dent i fi er /integer  J 

DOWN  BY  i den t i f i er / i nt eger  g 

index-name  series 
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2. A TABLE  HANDLING  LEVEL  2 

All  ele»ents  of  1 TBL  1/2  are  a part  of  2 TBL  1/2 
Data  Division 

The  OCCURS  clause  .....  II1-2 

inteqer-1  TO  integer-2  DEPENDING  ON  data-na>e 
ASCENDING/DESCENDING  data-nane 
data-nane  series 
ASCENDING/DESCENDING  series 


Procedure  Division 

The  SEARCH  stateaent III-7 

VARYING  phrase 
AT  END  phrase 
WHEN  phrase 

The  SEARCH  ALL  stateaent 1II-7 

AT  END  phrase 
WHEN  phrase 
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2.S  SEQUENTIAL  1-0  LEVEL  1 
Languaor  Concepts 

User-defined  words  ..................  I-7t 

f i I e-naae 
record-name 

I-O  status  ......................  IV-1 

Enwironacnt  Division 

The  fILE-CONTROL  paraoraph  IV-A 

The  file  control  entry  ................  IV-4 

SELECT  clause 

ASSIGN  TO  iap I eaent or -name  clause 
ORGANIZATION  IS  SEQUENTIAL  clause 
ACCESS  MODE  IS  SEQUENTIAL  clause 
FILE  status  clause 

The  I-O-CONTROL  paragraph.  ..............  IV-6 

RERUN  clause 
SAFE  AREA  clause 
SARE  AREA  series 

Data  Division 

File  Section  ...............  lV-9 

The  file  description  entry  ..............  lV-10 

The  record  description  entry  .............  I V-9 

The  BLOCK  CONTAINS  clause IV-11 

integer  CHARACTERS 
integer  RECORDS 

The  CODE-SET  clause IV-12 

The  DATA  RECORDS  clause IV-13 

deta-name 
data-name  series 

The  LABEL  RECORDS  clause  IV-14 

STANDARD  ' 

CHITTED 

The  RECORD  CONTAINS  clause  IV-18 

integer-1  TO  inteoer-?  CHARACTERS 

The  VALUE  OF  clause IV-19 

implementor-name  IS  literal 
implementor-name  IS  literal  series 

Procedure  Division 

The  CLOSE  statement  (only  a single  file-name  may  appear 

in  a CLOSE  statement) IV-20 

REEL 

UNIT 

The  OPEN  statement  (only  a single  file-name  may  appear 

in  an  OPEN  statement).  .............  IV-24 

INPUT 

OUTPUT 

1-0 

The  READ  statement  ..................  IV-28 
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INTO  identifier 


AT  END  phrase 


The  REWRITE  stateaent 


FROB  i dent i f i e r 

The  USE  stateaent 

EXCEPTlON/ERROk  PROCEDURE 
ON  file-naac 
ON  INPUT 
ON  OUTPUT 
ON  I-O 

The  WRITE  stateaent  

FR ON  identifier 
BEFORE/AFTER  integer  LINES 


lV-31 

lV-3? 


IV-3A 


The  systea  advanced  si»  extra  lines  in  addition  to  that 
specified  by  the  ADVANCING  clause  in  the  prograa  vhenever 
that  advance  crossed  the  horizontal  perforations  deaarcating 
a physical  printer  page  (fora). 

(S0101  B.1) 


BEFORE/AFTER  PAGE 
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I 

i 

I 


2.6  S£flUENTIAL  1-0  LEVEL  2 

All  eleaents  of  1 SEC  1>2  are  a part  of  2 SEC  1^2 


Language  Concepts 

Special  register  ...........  1-60 

LINAGE-COUNTER IV-3 

environment  Division 

The  FILE-CONTROL  paragraph  .............  IV-A 

The  file  control  entry  ...............  IV-A 

SELECT  clause 

OPTIONAL  phrase 

RESERVE  integer  AREA(S)  clause 

The  I-O-CONTROL  paragraph.  .............  lV-6 

SA»E  RECORD  AREA  clause 
SANE  RECORD  AREA  series 
BULTIPLE  FILE  TAPE  clause 


Data  Division 

The  file  descrip«ion  entry.  .............  lV-10 

The  BLOCK  CONTAINS  clause  lV-11 

integer-1  TO  integer-2  RECORDS 
integer-1  TO  integer-2  CHARACTERS 
The  LINAGE  clause IV-15 


* Extraneous  characters  appeared  on  certain  report  lines. 

• (S0213  B.1) 


2.6.2 


FOOTING  phrase 
TOP  phrase 
BOTTOB  phrase 

The  VALUE  OF  clause lV-19 

iap leaent or-na ae  IS  data-naae 
iapleaentor-naae  IS  data-naae  series 

Procedure  Division 

The  CLOSE  statement  ..... 

NO  REWIND/'  REMOVAL/  or  LOCK 
f i le-name  series 
The  OPEN  statement.  ..... 

INPUT 

REVERSED 


• OPEN  ...  REVERSED  is  not  supported  by  this  system.  This  is 

• not  an  error  as  OPEN  ...  REVERSED  is  a language  elerent  that 

• pertains  to  a specific  type  of  hardware  component.  See  I.A. 


lV-20 

IV-2A 


NO  REWIND 
OUTPUT 

NO  REWIND 
EXTEND 


I i1  i' ' XltA 
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f i le-name  serifs 

INPUT,  OUTPUT,  I-O,  and  EXTEND  series 

The  USE  stateaent  .............  IV-32 

EXCEPTION/ESROR  PROCEDURE  OK  file-naae  series 
EXCEPTION/ERROR  PROCEDURE  ON  EXTEND 
The  WRITE  stateaent  .................  IV-34 

BEFORE/XfTER  identifier  LINES 
BFFORE/XFTER  aneaon i e -naa e 
XT  END-0F-PA6E  i ape r a t i ve -St a t eaen t 


I 
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2.7  RELATIVE  I -0  LEVEL  1 


Lingu*9e  Concepts 

User-defined  words.  .................  1-76 

f i le-nane 
re  cord-name 

I-O  status.  .....................  V-2 

Environment  Division 

The  flLE-COSTROL  paragraph V-5 

The  file  control  entry.  ...............  V-5 

SELECT  clause 


ASSIGN  TO  imp  I ement or-name  clause 
ORGANIZATION  IS  RELATIVE  clause 
ACCESS  rode  clause 
SESUENTIAL 
RANDON 

EILE  STATUS  Clause 

The  1-O-CONTROL  paragraph  V-7 

RERUN  clause 
SA*E  AREA  clause 
SANE  AREA  series 


Data  Division 

file  Section.  ....................  V-10 

The  file  description  entry.  .............  V-11 

The  BLOCr  CONTAINS  clause  V-T2 

integer  CHARACTERS 
integer  RECORDS 

The  DATA  RECORDS  clause V-13 

data-name 
data-name  series 

The  LAEIEL  RECORDS  clause V-14 

STANDA  RD 
OMITTED 

The  RECORD  CONTAINS  clause V-1S 

integer-1  TO  integer-?  CHARACTERS 

The  VALUE  OF  clause V-16 

implementor-name  IS  literal 
implementor-name  IS  literal  series 

Procedure  Division 

The  CLOSE  statement  .................  V-17 

WITH  LOCK 
file-name  series 

The  DELETE  statement V-19 

INVALID  KEY  phrase 

The  OPEN  statement V-20 

INPUT 

OUTPUT 

I-O 
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f i ( e-name  series 

INPUT/  OUTPUT/  and  I -0  series 


The  READ  stateaent V-23 

INTO  ident  if ier 
AT  END  phrase 
INVALID  KEY  phrase 

The  REURITE  stateaent  V-26 

FRCP  identif ier 
INVALID  KEY  phrase 

The  USE  stateaent  ..................  V-30 


EKCEPTION/ERROP  PROCEDURE 
ON  file-naae 
ON  INPUT 
ON  OUTPUT 
ON  I-O 

The  bRITE  stateaent.  ................  V-32 

F RON  i dent i f i e r 
INVALID  KEY  phrase 
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2.1  RELATIVE  I-O  LEVEL  2 

All  elenents  o1  1 REL  0^2  are  a part  of  2 REL  Or? 


Environ«»nt  Division 

The  EILE-CONTROL  paraoraph.  ..............  V-S 

The  file  control  entry.  ................  V-5 

SELECT  clause 

RESERVE  integer  AREA(S)  clause 
ACCESS  HODE  IS  DYNAMIC  clause 

The  I-O-CONTROL  paragraph  V-7 

SAME  RECORD  AREA 

SAME  RECORD  AREA  entries 

Data  Division 

The  file  description  entry.  ..............  V-11 

The  PLOCr  CONTAINS  Clause  V-12 

integer-1  TO  inteoer-2  RECORDS 
integer-1  TO  integer-2  CHARACTERS 

The  VALUE  OF  clause V-16 

i«pl eaent or-naae  IS  data-naae 

iap I eaent or-naae  IS  data-na»e  entries 

Procedure  Division 

The  READ  stateeent V-23 

NEXT  RECORD 

The  START  statenent  ..................  V-28 

KEY  IS  phrase 
INVALID  KEY  phrase 

The  USE  statement  ...  ...........  V-30 

EXCEPTION/ERROR  PROCEDURE 
ON  file-naae  series 
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2.9  INDEXED  I-O  LEVEL  1 


Language  Concepts 

User-defined  words.  .................  1-76 

f i le-naee 
record-name 

I-O  status.  .....................  VI-2 

Environment  Division 

The  FILE-CONTROL  paragraph VI-5 

The  file  control  entry.  ...............  VI-5 

SELECT  clause 


ASSIGN  TO  imp  I ement or- name  clause 
ORGANIZATION  IS  INDEXED  clause 
ACCESS  NODE  clause 
SEQUENTIAL 
RAND0“ 

RECORD  KEY  clause 
FILE  STATUS  clause 

The  I-O-CONTROL  paragraph  »....  VI-8 

RERUN  clause 
SANE  AREA  clause 
sane  area  series 


Data  Division 

File  Section.  ....................  VI-11 

The  file  description  entry.  .............  VI-12 

The  record  description  entry.  ............  VI-11 

The  BLOCK  contains  clause  VI-13 

integer  CHARACTERS 
integer  RECORDS 

The  DATA  RECORDS  clause VI-14 

dat  a-name 
data-name"  series 

The  LABEL  RECORDS  clause VI-15 

STANDARD 

ONITTED 

The  RECORD  CONTAINS  clause VI-16 

integer-1  TO  inteoer-2  CHARACTERS 

The  VALUE  OF  clause VI-17 

implement o r-r. -me  IS  literal 
implementor-name  IS  literal  series 

Procedure  Division 

The  CLOSE  statement  .................  VI-18 

MITH  LOCK 
f i le-name  seri es 

The  DELETE  statement VI-20 

# invalid  key  phrase 

The  OPEN  statement VI-21 

INPUT 

OUTPUT 
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I-O 

i i le-na»e  series 
INPUT/  OUTPUT/  and  I-O  series 
The  READ  statement.  ....... 

INTO  i dent i f i e r 
AT  END  phrase 
INVALID  KEY  phrase 
The  REWRITE  stateeent  ...... 

FR  OP  i dent i f i e r 
INVALID  KEY  phrase 
The  USE  statement  ........ 

EXCEPTION/ERROR  PROCEDURE 
ON  file-na«ie 
ON  INPUT 
ON  OUTPUT 
ON  1-0 

The  WRITE  statement  ....... 

FROP  identifier 
INVALID  KEY  phrase 
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2.10  INDEXED  I -0  LEVEL  2 

All  eleaents  of  1 INX  0#2  are  a part  of  2 INX  0^2 


Environnent  Division 

The  FILE-CONTROL  paraoraph  ..............  VI-5 

The  file  control  entry  ................  VI-5 

SELECT  clause 


RESERVE  inteoer  AREA(S)  clause 
ACCESS  nODE  IS  DYNAKIC  clause 
ALTERNATE  RECORD  KEY  clause 
WITH  DUPLICATES  phrase 


The  I-O-CONTROL  paraqraph VI-8 

SAFTE  RECORD  clause 
SAKE  RECORD  AREA  series 

Data  Division 

The  file  description  entry  ..............  VI-12 

The  BLOCK  CONTAINS  clause VI-13 

integer-1  TO  inteoer-2  RECORDS 
integer-1  TO  integer-2  CHARACTERS 

The  VALUE  OF  clause.' VI-17 

i »p  I e«ent  or-naire  IS  data-name 
iiiplementor-naee  IS  data-name  series 

Procedure  Division 

The  READ  stateaent  ...........  VI-24 

KEY  IS  phrase 
NEXT  RECORD 

The  START  statement.  .................  VI-30 

KEY  IS  phrase 
INVALID  KEY  phrase 

The  USE  statement.  ..................  VI-32 

EXCEPTION/ERROR  PROCEDURE 
ON  file-name  series 
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.11  S0RT-"ER6t  LEVEL  1 


Language  Concepts 

User-defined  words.  .................  1-76 

f i ie-ne»e 

Environment  Division 

The  FILE-CONTROL  paragraph.  .............  VII-2 

The  file  control  entry.  ...............  Vll-2 

SELECT  c lapse 


ASSIGN  TO  imp  I eaentor-naae  clause 


Data  Division 

File  Section.  ....................  VII-5 

The  sort-merge  file  description  entry  ........  VII-5 

The  DATA  RECORDS  clause  ...............  VII-6 

The  RECORD  CONTAINS  Clause VII-7 

Procedure  Division 

The  RELEASE  statement  ................  VII-12 

FROM  phrase 

The  RETURN  statement.  ................  VII-13 

INTO  phrase 
AT  END  phrase 


The  SORT  statement  (only  one  SORT  statement/  a STOP 
RUN  statement/  and  any  associated  input-output 
procedures  allowed  in  the  nondec I a ra t i ve 
portion  of  a program)  .............  VII-14 

KEY  data-name 

data-name  series 
ASCENDING  series 
DESCENDING  series 
mimed  ASCENDING/DESCENDING 
INPUT  PROCEDURE  phrase 
THRU 

USING  phrase 
OUTPUT  PROCEDURE  phrase 
THRU 

GIVING  phrase 
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2.12  SORT-WERGE  LEVEL  2 

All  elesents  of  1 SRI  0.2  are  a part  of  2 SRT  0.2 


I Environment  Division 

I The  FILE-COMROL  paragraph.  .............  Vll-2 

! The  file  control  entry.  ...............  VII-2 

i SE  LE  C T c I ause 

I The  I-O-CONTROL  paraoraph  ..............  VIl-3 

I SA»E  RECORD  AREA  clause 


SAtE  SORT/SOKT-rERGE  AREA  clause 
SAF»E  series 

Procedure  Division 

The  PERGE  statement VII-8 

KEY  data -n am e 

data-name  series 
ASCENDING  series 
DESCENDING  series 
mi«ed  ASCE ND I NG /D E SC E ND I NG 
COLLATING  SEfiUENCE  phrase 
USING  phrase 
OUTPUT  PROCEDURE  phrase 
THRU 

GIVING  phrase 

The  SORT  statement  (multiple  SORT  statements  are 

permitted) VII-1A 

COLLATING  SEOUENCE  phrase 
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,2.13  REPORT  WRITER  LEVEL  1 


Language  Concept 

User-defined  words  ..............  1-76 

t i le-name 
r eport-nane 

Special  registers  ....  .....  1-80 

LINE-COUNTER  VIII-1 

PAGE-COUNTER  VIII-1 

Data  Division 

Report  Section  ...  VIII-2 

The  tile  description  entry  ..........  VIII-3 

The  report  description  entry  .........  VIIl-L 

The  report  group  description  entry  ......  VIII-6 

The  BLOCr  CONTAINS  clause  VIlI-24 

The  CODE  clause  .........  VIII-2S 

The  CODE-SET  clause  VlII-26 

The  COLUPN  NUPPER  clause  VIII-27 

The  CONTROL  clause  VIII-2P 

dat  a-nan  e 
data-nane  series 
FINAL 

final  data-name  series 

The  data-nane  clause  ........  VIII-30 

The  GROUP  INDICATE  Clause  VIII-31 

The  LABEL  RECORDS  Clause  VIIl-32 

The  LINE  NUNBER  clause  VIII-23 

integer 
NEXT  PAGE 
PLUS  integer 

The  NEXT  GROUP  clause  VIII-35 

int  eger 
PLUS  integer 
NEXT  PAGE 

The  PAGE  clause VIII-36 


integer  LINES 
HEADING 
FIRST  DETAIL 
LAST  DETAIL 
FOOTING 


The  PICTURE  clause 11-18 

The  RECORD  CONTAINS  clause  VIII-39 

The  REPORT  clause  VIII-AO 

report-nane  series 

The  SOURCE  clause  VIII-41 

The  SUN  clause VIII-A2 

UPON  data-nane  series 
RESET  phrase 

The  TTPE  clause VIII-45 

REPORT  HEADING  (RH) 

PAGE  HEADING  (PH) 
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CONTROt  HEADING  <CH) 
DETAIL  (DE) 

CONTROL  footing  (CF) 
PAGE  FOOTING  (PF) 
REPORT  FOOTING  (KF) 
The  VALUE  IS  clause  . . 
The  VALUE  OF  clause  . . 


11-36 

VIII-50 


Procedure  Division 

The  GENERATE  statenent  VIII-51 

report -naBe 
dat  a-nane 

The  INITIATE  statement  VIII-53 

report -na«e 

The  SUPPRESS  statenent  VIlI-5* 

report -name 

The  TERriNATE  statement  VIII-55 

report-naae  series 

The  USE  statement  ..............  VIII-S6 

BEFORE  REPORTING 
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2.U  segrematicn  level  1 


Languagr  Concepts 

User-defined  words.  .................  1-76 

segaent -nuaber 

Procedure  Ciwision 

Segaent-numbers  ....  ..........  IX-4 


fixed  segaent -nuaber  range  0 through  49 
hon-tixed  segaent-nuaber  range  50  through  99 
411  sections  with  the  saae  segaent -nuaber  aust 
be  together  in  the  source  prograa 
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2.15  SE6RENU1I0N  LEVEl.  2 

All  eleaents  of  1 SE6  0>2  are  a part  of  2 SEE  0^2 

Environaent  Division 

The  09JECT-C0*'.PUTeR  paragraph 

SEG«ENT-LI*«IT 

Procedure  Division 

Segaent-nunbe rs  .................. 

Sections  vith  the  saae  segaent -nuaber  need  not 
be  physically  contiguous  in  the  source  prograa 


E3 


IX-5 

1X-* 
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2.16  LieRARr  LEVEL  1 


Languaae  Concepts 

tser~de1ined  words  ..............  I~76 

text-nane 

All  divis Ions 

The  COPY  statewent 
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2.18  DEBUG  LEVEL  1 


Languaoe  Concepts 

Special  reaisters 1-80 

DEBUG-ITEK *1-1 

Fnvironaent  Division 

The  S0URCE-C0«PUTER  paragraph 

WITH  DEBUGGING  fODE  clause XI-3 


2.18.1 

2.18.2 

2.18.3 


2.18.« 


Procedure  Division 

USE  FOR  DEBUGGING  Stateaent XI-4 

procedure-naae 
procedure-name  series 
ALL  PROCEDURES 


DEBUG-NAME  vas  incorrect  for  procedure-nanes  in  a 6C  TO 
DEPENDING  sentence. 

(DB105  B.1  ) 


Debugging  declarative  procedure  not  executed  for  soie 
conditional  GO  TO  statements. 

(DB105  B.2) 


DEBUG-NAME  was  incorrect  for  some  ALTERed  paragraph 
names . 

<DB105  B.3) 


DEBUG-NAME  was  incorrect  for  one  procedure-name  in  a 
series  of  nested  PERFORM  ranges. 

(D610S  6.4) 


Debugging  Ijnes XI-10 


46 


CCVS7«-VSR235 

2.20  INTER-PROGRAf.  COMUNI  CATIONS  LEVEL  1 


Data  Division 

Linkage  Section.  ...................  XII-2 

Procedure  Division 

Procedure  Division  header.  ..............  XIl-A 

USING  phrase 

The  CALL  stateaent  ..................  XII-S 

I i teral 

USING  data-naae  series 

The  EXIT  PROGRAP  stateaent XII-8 
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2.22  COMMUNICATION  LEVEL  1 


• The  COMMUNICATION  Module  is  not  currently  evaluated  as 

• part  of  an  official  validation.  See  Section  1.9.3. 


Language  Concepts 

User-defined  words 
cd-name 


1-76 


Data  Division 

Coneuni cat i on  Section  ................  IIII-2 

The  coBBuni cat i on  description  entry  .........  XIII-3 


FOR  INPUT  clause 
END  KEY 
MESSAGE  COUNT 
MESSAGE  DATE 
MESSAGE  TIME 
SYMBOLIC  aUEUE 
SYMBOLIC  SOURCE 
SYMBOLIC  SUB-QUEUE-n 
STATUS  KEY 
TEXT  LENGTH 
FOR  OUTPUT  clause 
destination  count 
DESTINATION  TABLE 
INDEXED  BY 
ERROR  KEY 

SYMBOLIC  DESTINATION 

status  key 

TEXT  LENGTH 


Procedure  Division 

The  ACCEPT  MESSAGE  COUNT  stateaent XIII-12 

The  DISABLE  stateBent  XIII-13 

INPUT 

OUTPUT 

KEY  i dent i f i e r / 1 i te ra  I 

The  ENABLE  statesent XIII-1S 

INPUT 

OUTPUT 

KEY  i dent i f i er / 1 f t era  I 

The  RECEIVE  stateBent  XIII-17 

MESSAGE 

INTO  identifier 
NO  DATA  phrase 

The  SEND  StateBent XIII-20 

FROM  identifier-1  WITH 
WITH  EMI 
WITH  EGI 

BEFORE/AFTER  ADVANCING 
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identifier-3  LINES 
integer  LINES 
■neaoni c-n«ee 
PAGE 
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2.23  COf^«UMCATION  LEVEL  2 


• The  C0»"'UN1 C» T1 ON  Nodule  is  not  currently  eweluated  as 

* part  of  an  official  validation.  See  Section  1.9.3. 


All  eleaents  of  1 CO*  Cr2  are  a part  of  2 CON  0^2 


CoBBunicat ion  Section 

The  conaiun  i ca  t i on  description  entry.  .........  XIIl-3 

rOR  INPUT 
INITIAL 

Procedure  Division 

The  DISABLE  statement XIII-13 

INPUT 

TERMINAL 

The  ENABLE  statement  XIII-15 

INPUT 

terminal 

The  RECEIVE  stateeent XIII-17 

SEGMENT 

The  SEND  statement  ...........  XIII-20 

EROM  identifier-1 
WITH  identifier-2 
WITH  ESI 
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SECTION  3.  COMPILER  STATUS 

3.1  Federal  Standard  COPOL 

Section  1.5  explains  the  four  levels  of  federal  Standard  COBOL  arc  their 
relation  to  Aeerican  National  Standard  COBOL.  This  section  lists  the  dis- 
crepancies described  in  Section  2 by  the  federal  level  in  which  the  problea 
occurs.  All  errors  listed  for  a lover  level  are  also  errors  in  any  higher 
level/  even  though  they  are  listed  only  in  the  lover  level.  The  paragraph 
nuBber  froa  Section  2 is  used  to  reference  the  errors  in  each  Federal  level 

3.1.1  Low  Leve I 

2.1.1  Coaaent -ent ry  character-string  was  syntax-scanned 

2.1.2  Saae-line  packing  of  data  descriptions 

2.1.3  STOP  literal  stateaent  not  executed 

2.5.1  WRl TE .AD VANC I N6;  extra  lines  at  page  aargir 

3.1.2  Low-Interaediate  Level 

2.18.1  ALL  PROCEDURES;  GO  TO . . . D EP f N D IN 6 . . . 

2.18.2  ALL  PROCEDURES;  conditional  GO  TO  (IF. ..GO  TC...) 

2.18.3  ALL  PROCEDURES;  ALTERed  p ro ce du re - naae s 

2.18.4  ALL  PROCEDURES;  nested  PERFORM  ranges 

3.1.3  h i gh-In t e raed  iat e 

2.2.1  Coaplex  abbreviated  relational  and  logical 

cond it  ions 

2.2.2  UNSTRING. ..DELIMITED  B Y . . . D E L I M I TE R IN... 

2.6.1  linage  clause 

2.21.1  CALL  by  literal  and  identifier  in  saae  prograa 

3.1.4  High  Level 

None 


3.2  Aaerican  National  Standard  COBOL 

Full  Aaerican  National  Standard  COBOL  consists  of  the  entire  set  of  language 
eleaents  defined  in  the  ANSI  COBOL  standard  (refer  to  1.7).  It  is  also  the 
equivalent  of  high  level  Federal  Standard  COBOL  plus  the  Report  Writer 
aodule.  Therefore/  this  section  lists  only  those  discrepancies  found  while 
validating  the  Report  writer  Module. 

None 
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SECTION  4.  SOFTWARE  "EN  VI RONBEN  T 

The  conpiler  referenced  in  this  document  was  validated  usinp  the  software 
environment  described  in  this  section.  When  usinp  a modification  of  the 
described  environments  the  compiler  may  or  may  not  continue  to  conform  to  the 
Standard.  It  should  be  noted  that  during  the  validation  processs  an  attempt 
is  made  to  validate  as  many  different  options  as  possible. 

The  use  of  compiler  options#  implementor-names  in  the  Envirorment  Divisicr 
and  any  form  of  optimization  \hich  is  not  described  in  this  report  could  cause 
the  compiler  to  produce  a program  that  does  not  perform  according  to  the 
specifications  of  Standard  COBOL.  Only  the  environment  described  in  this 
document  has  teen  used  with  this  compiler  to  satisfy  the  requirements  of  FIPS 
PUB  21-1  and  Fpmt  1 01 -32 . 1 305 . 1 a . (Any  deviations  which  must  be  corrected  as 
per  the  referenced  FPmp  are  described  in  Sections  2 and  3 of  this  report.) 

1.  Options  or  parameters  used  on  the  processor  call  statement  for  the  compiler 
The  following  options/parameters  were  used  during  the  validation. 

Optior  specified:  NRESET 

The  above  option  forces  object  programs  into  emecution  even  if  "fatal" 
compile  errors  are  encountered.  This  option  was  used  during  the  entire 
validation  run  series.  In  addition#  certain  programs  were  rerun  trying  various 
combinations  of  the  following  options:  XREF#  PAP#  ALTNO#  NLSTIN#  LL#  LIL# 

MIL#  HL. 

2.  Environment  Division  implementor-names. 

Printer  destined  files 
PI-PRINTER 


Tape  files 
Inm 

Sequential  Pass-storage  files 
Pn* 


• Where  n is  a single 
numeric  digit 


Random  Access  files 


Rn* 

Sort  files  (SD> 


Wn* 

Sw{\ ch  names 
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SWITCH  7 

Sourer  Coaputer  nane 
LEVEL-66-ASCII 
Object  Coaputer  naae 
LEVEL-66-ASCII 

3.  Opt  i B iz  a t ion . The  conpiler  Bay  or  Bay  not  have  optir.ization  features. 

If  optiBization  uas  available  by  option/  it  was  used  during  the  validation 
process  (during  a separate  execution  of  the  Compiler  Validation  System) 

to  determine  if  its  use  causes  the  compiler  to  produce  a proqraa  which 
does  not  give  the  expecteo  results.  If  the  optimization  is  invoked  through 
the  compiler  call  statement  then  it  is  Bentioned  in  paragraph  1 abeve.  If 
it  is  invoked  through  the  introduction  of  syntax  in  other  than  the  Data 
and  Procedure  Divisions  of  the  source  program  it  is  shown  below.  Optimization 
which  would  reguire  Bodification  to  the  Data  and  Procedure  Divisiens  is  not 
considered  in  this  report  in  that  it  is  beyond  the  scope  of  the  use  of 
standard  COBOL  and  the  validation  process. 

There  is  no  specific  optiBization  option  lor  this  compiler. 

4.  Compiler. 

Level  66  COBOL  CB3.0 

5.  Operating  system.  ^ 

GCOS  Release  31 
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SECTION  5.  *SCn  VALIDATION 

5.1  Purpose  oT  ASCII  Validation 

The  ASCII  Validation  is  perforaed  by  running  a seouence  oi  three  CCVS74 
prograas  ($Q118>  SS119r  SQ12U)  using  special  procedures.  The  purpose  of  this 
special  run  is  to  validate  that  the  coap i I er /oper at i ng  systea  being  tested 
is  capable  of  processing  ASCII  code  represented  or  aagnetic  tape  arc 
punched  cards  that  were  produced  (in  accordance  with  the  appropriate  Aaerican 
National  Standard)  by  another  systea.  There  is  also  a aagnetic  tape  and  a card 
file  created  during  the  validation  which  will  be  taken  to  another  systea  for 
further  processing.  The  purpose  is  to  deteraine  whether  the  toe p i I e r /ope ra t i no 
systea  being  tested  can  also  produce  ASCII  representation  on  aagnetic  tape  ano 
punched  cards  which  can  be  processed  by  a another  coaputer  systea. 

5.2  Applicable  ANSI  Standards 

The  ASCII  Validation  is  based  on  several  Aaerican  National  Standards  and 
presuaes  their  support  by  the  coapi ler/operat  ing  systea  bring  validated. 

These  are: 

1.  Aaerican  National  Standard  Prograaaing  Language  COBCL  X3.23~T974 

- The  CODE-SET  clause  is  used  to  read  and  write  the  ASCII 
files. 

The  PROGRAM  COLIATING  SEQUENCE  clause  is  used  to  process  the 
data  in  ASCII  aode  as  well  as  native  aode. 

- The  SI 6N . . . SEP AR ATE  Clause  is  used  for  signed  data  and  all 
data  is  in  the  DISPLAY  (character)  aode. 

2.  Aaerican  National  Standard  Code  for  Inforaation  Interchange 
(ASCII)  X3. 4-1968.  (Note  that  this  describes  the  code»  not  the 
labeling  and  tape  recording  foraats.) 

3.  Aaerican  National  Standard  Hollerith  Punched  Card  Code> 
K3.26-1970. 

4.  Aaerican  National  Standard  Magnetic  Tape  Labels  for  Inforaation 
Interchange^  X3. 27-1969. 

5.  Aaerican  National  Standard  Recorded  Magnetic  Tape  fcr  Inforaation 
Interchange  (800  CPI,  NZRI)/  X3. 22-1967. 

6.  Aaerican  National  Standard  Recorded  Magnetic  Tape  for  Inforaation 
Interchange  (1600  CPI,  PR),  X3. 39-1973. 


The  language  of  the  1974  COBOL  Standard  provides  the  capability  to  accept, 
process,  and  produce  ASCII  code.  The  ASCII  Standard  describes  the  code  insofar 
as  the  bit  arrangeaent  and  configuration,  but  does  not  address  recording  tech- 
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niques/  record  foraats  or  any  labeling  scheae.  The  !00  CPI/  NZRI  eagnetic  tacr 
recording  standard  was  used  to  establish  the  recording  density  and  techniques. 
(160C  CPI/  PE  based  on  X3.39>-1973  "Recorded  Magnetic  Tape  for  Inforaation  Inter- 
change" could  be  used  under  special  arrangements.)  The  tape  labeling  scheae 
used  in  these  tests  is  based  on  X3. 27-1969  but  is  also  coapatible  with  the 
.•  revision  to  that  tape  label  standard.  Only  the  VOLT/  H0P1/  and  ECfl  labels  are 
used.  The  records  are  fixed  length  and  unblocked. 


S.3  ASCII  Validation  Process 

During  the  validation/  the  Validation  Manager  for  the  federal  COBOL  Com- 
piler Testing  Service  uses  the  AS C 1 1 -encoded  Magnetic  tape  and  card  files 
in  addition  to  the  nor»al  tape  files  associated  with  a validation.  for  the 
ASCII  portion  of  the  validation  the  following  steps  are  performed: 

1.  The  tape  file  and  card  deck  (produced  on  another  computer  system) 
are  used  as  input  to  several  programs  designed  to  validate  whether 
the  system  being  validated  can  accept  and  process  the  data  as 
defined  by  the  respective  standards.  Any  changes  maoe  during  this 
validation  to  the  source  programs  reading  the  data  are  noted 
below  in  5.4.1. 

2.  A tape  file  and  card  file  are  produced  during  the  validation  which 
should  prove  to  be  identical  to  the  files  described  in  1 above. 
These  two  files  are  then  processed  on  a different  cemputer  system 
to  determine  the  degree  to  which  the  system  being  validated  sup- 
ports the  ASCII  standard.  Any  changes  made  during  this  validatic* 
to  the  source  program  producing  the  data  are  noted  below  in  5.4.2. 


5.4  Results  for  This  Validation 

5.4.1.  During  execution  of  the  ASCII  Validation  programs/  the  system  was 
unable  to  process  either  a labelled  or  unlabelled  tape/  each 
crested  on  a foreign  system. 

5.4.2.  During  execution  of  the  ASCII  Validation  programs/  the  system  created 
both  a card  deck  and  a labelled  tape  which  were  subsequently  checked 
on  a foreign  computer  system.  Both  the  cards  and  the  tape  were 
determined  to  be  in  proper  format.  The  data  records  on  the  tape 
were  preceded  by  V0L1/  HDR1/  and  HDR2  label  records  and  a tape  nark; 
and  were  followed  by  a tape  mark/  E0F1/  and  E0F2  label  records/  and 

a double  tape  mark.  All  labels  were  correct  according  to  applicable 
standards. 
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APPENDIX  A 


VALIDATION  SUMMARY  WORKING  OOCUPENT 


A~1  This  appendix  is  a workinq  paper  produced  during  the  valication 

and  documents  the  results  of  the  compilation  and  execution  of  each  of  the 
programs  comprising  the  CCVS.  The  results  contained  herein  are  based  on 
the  use  of  the  compiler  uithin  the  Validation  Environment  identified  in 
this  appendix.  This  appendix  (Validation  Summary  Working  Document)  is  not 
part  of  the  official  Validation  Summary  Report  (VSR)  and  is  not  intended 
to  reflect  in  any  vay  the  compiler's  usefulness  or  degree  of  conformance 
to  the  language  specifications. 

The  reader  of  this  appendix  should  keep  in  mind  that  the  same  pro- 
blem area  may  appear  in  more  than  one  programr  but  is  considered  only  as  one 
single  discrepancy  and  as  such  is  reflected  only  once  in  the  body  of  the 
VSR.  (The  VSR  will  in  turn  only  reference  the  first  occurrence  of  the 
problem  in  the  appendix.) 

The  reference  documents  for  COBOL  are  American  Nat ional . St andard 
Programming  Lanouaoe  COBOL  (X 3. 23-1 974) » and  Federal  Standard  COBOL 
(FIPS  PUP  21-1). 


VALIDATION  ENVIRONMENT 


COMPILER  IDENTIFICATION:  Level  66  COBOL  CB3.0 

COMPUTER  SYSTEM:  H668G/  single  processor^  256C  memory 

OPERATING  SYSTEM:  CCOS  Release  31 
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COBBLNICATION  LEVELS  1 AND  2 

No  COBBunicat ion  prograBS  Here  run.  See  Section  1.9.3. 


CCVS74-VSR335 
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1 
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DEBUG  LEVEL  1 
DB101  through  DBtOR 

A.  Coapi lat ion 
No  errors. 

e.  Execution 
No  errors. 

0B1C5 

A.  Coppilation 
No  errors. 

6.  Execution 

This  prograP  exercises  DEBUG  ON  ALL  PROCEDURES.  The  debugging 
procedure  failed: 

1.  To  return  the  proper  DEBUG-NAME  for  procedure-naaes  receiving 
control  via  GO  TO ..  .DEPENDING .. . branches^  for  any  except  the 
first  naaed  branch  (e.q.f  60  TO  A B C DEPENDING...  fails  for 
branches  6 and  C ) . 

2.  To  be  executed  for  sor.e  procedure-naaes  receiving  control  via 
conditional  branch  (e.g.^  IF  t rue-condi t ion  GO  TO  A.  fails 

to  activate  the  debugging  procedure  upon  entry  to  A). 

3.  To  return  the  proper  DEBUG-NAPE  for  soar  procedure  naves 
receiving  control  via  an  ALTERed  GO  TO  stateaent. 

A.  To  return  the  proper  DEBUG-NAPE  for  one  (only)  procedure-naae 
in  the  aiddle  of  a sequence  of  PERFORM  stateaents  nested  to 
twenty  levels;  the  failure  was  at  the  twelfth  level  of  nesting. 

DEBUG  LEVEL  2 

DB201  through  DB204 

A.  Coppilation 
No  errors. 

B.  Execution 
No  errors. 
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INTEfi-PROGRAW  C OMPU N 1 C AT  ION  LEVEL  1 
IC101  throuoh  IC115»  and  IC1S1  and  IC152 

A.  Coapilation 
No  errors. 

B.  Execution 
No  errors. 

INTER-PROGRAM  COMMUNICATION  LEVEL  2 
1C201  through  IC2C6 
A.  Coapilation 
No  errors, 
e.  Execution 

In  IC201»  all  tests  except  CALL-TEST-01.01  failed.  In  IC2C3» 
CNCL-TEST-01 .01»  .02/’  and  .03;  and  CNCL-TEST-05  all  failed. 
This  was  apparently  the  result  of  the  aixing  of  CALLS  by 
literal  and  CALLS  by  identifier  in  the  sane  progran^  and 
uas  assuned  to  be  a loader  problen. 

1C207  and  IC208 

A.  Coapilation 
No  errors. 

B.  Execution 
No  errors. 
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INDEXED  I-O  LEVEL  1 
1X101  through  1X107 
A.  Coapilation 


No  errors. 


B.  Execution 


No  errors. 


INDEXED  I-O  LEVEL  2 
1X201  through  1X208 
A.  Coapilation 


No  errors. 


6.  Execution 


No  errors. 


CCVS74-VSR235 


library  level  1 
LB101  through  LB107 

A.  CoBpilation 
No  errors. 

B.  Execution 

No  failures.  In  LB103»  the  CCVS  report  file  <to  the  printer) 
is  closed  and  reopened  during  execution.  The  proqraxi  ejected 
to  a new  page  on  the  printer  listing  at  this  point  (not  ar 
error) . 

library  LEVEL  2 

LB201  through  LB207 

A . Coapi lat ion 

The  characters  COPY  were  syntax-scanned  in  coaiaent-ent ry 
character-strings  (SECURITY  paragraph). 

B.  Execution 

In  L6201  COPY-TEST-11  failed.  This  test  eaploys  copied  BATA 
DIVISION  entries  which  resulted  fro#  pseudo-text  replaceeert 
of  entire  data  entries  (fron  level  nuaber  to  terainating  period). 
Two  contiguous  eleaentary  C2  level  iteas  were  replaced  by  two 
other  eleaentary  02  level  iteas.  The  compiler  listing  indicates 
that  the  pseudo-text  replaceaent  was  correctly  performed.  However^ 
the  resulting  text  placed  both  of  the  02  level  items  on  the  saae 
source  line;  and'  therefore  the  execution  error  may  be  assuaed  to 
be  the  saae  problem  as  that  reported  for  NC205. 
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NUCLEUS  LEVEL  1 
NC101  through  NC108 

A.  Coapilstion 
No  errors. 

B.  Eiecution 
No  errors. 

NC109 

A.  Conpilation 
No  errors  . 

B . Execut ion 

When  "STOP  literal"  is  used/  the  system  displays  the  literal  to  the 
operator  and  then  suspends  the  prograa  for  a predeterained  time 
interval.  At  the  expiration  of  the  interval/  the  systea  autoaatically 
returns  the  program  to  execution.  The  operator  has  no  way  to 
override  this  sequence  and  return  the  prograa  to  execution 
before  expiration  of  the  interval. 

The  statements  STOP  7EP0  and  STOP  8U0TE  mere  not  executed;  nothing 
appeared  at  the  operator  console/  and  the  prograa  did  not  pause 
at  these  two  STOP  stateaents. 

NC110  through  NC120  and  NC1S1  through  NC157 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

NC158 

A.  Compilation 
No  errors. 

B.  Execution 

The  saae  results  obtained  in  NC109  for  “STOP  literal"  stateaents 
were  experienced  here  also. 
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NC1S9  through  NC165 

A.  CoBpilAtion 
ho  errors. 

B.  Eiecution 
ho  errors. 

NUCLEUS  LEVEL  2 

NC201  through  NC2C4 

A . Coppi let  ion 
No  errors. 

B.  Esecution 
No  errors. 

NC20S 

A.  Coapilation 
No  errors. 

6.  Execution 

tONTIN-TE ST-1 0 failed.  In  this  test  the  contents  of  a grcup  itee 
were  being  checked.  The  description  of  this  item  and  its  conponent 
sub-group  and  elenentary  iteas  are  packed  together  in  the  Data 
Division  with  nore  than  one  data  entry  (level  nuaber)  placed  on 
each  source  card  ieage  line. 

NC206  through  NC213 

A.  Coapilation 
No  errors. 

6.  Execution 
No  errors. 

NC2U 

A.  Coapilation 
No  errors. 

B.  Execution 
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IF-TEST-7  failed.  This  test  checks  the  seaantics  of  NOT  which  negates 
a relational  operator/  and  NOT  used  as  a logical  operator.  The 
condition  tested  is: 

IF  NOT  (11  NOT  greater  12  AND  13  AND  NOT  14)  CO  ... 

NC215  through  NC217 

A.  Coapilation 
No  errors. 

B.  Esecution 
No  errors. 

NC218 

A.  Coapilation 
NO  errors. 

B.  Execution 

UNST-TEST-06.02/  UNST-TEST-07 .02/  and  UNST-TEST-09.02  all 
failed.  In  each  of  the  three  tests/  the  DELINITED  BY  ALL  ... 
option  is  used  in  the  UNSTRING  statement.  This  implementation 
returns  a string  of  the  (repeated)  delimiter  character  whereas 
CCVS74  expects  only  a single  occurrence  of  the  delimiter 
character  to  be  placed  in  the  receiving  identifier. 


i 

1 

I CCVS74-VSR235 

i 

t 

RELATIVE  1-0  LEVEL  1 

RL101  through  RL109  and  RL151  through  RL1S3 
A . Coapi lat ion 
ho  errors. 

B.  Execution 
No  errors. 

RELATIVE  I-O  LEVEL  2 

RL201  through  RL2C5 
A.  Corpilation 
No  errors, 
e.  Execution 
No  errors. 

REPORT  WRITER  LEVEL  1 

RW101  through  RW104 

A . Coapi I at i on 
No  errors. 

B.  Execution 
No  errors. 
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SEenERTATION  LEVEL  1 
S6101  through  SG106 

A.  Coapilation 
Ho  errors. 

B.  Eiecution 
Ho  errors. 

SEenENTATION  LEVEL  2 
SG201  through  SG2C4 
A.  Coapilation 
ho  errors. 

G.  Execution 
No  errors. 
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SEOUENTIAL  I-O  LEVEL  1 
SQ101 

A.  Coapilation 
ho  errors. 

B.  Eiecution 

in  the  BEFORE  and  AFTER  ADVANCINB  tests  of  the  WRITE  stateaent#  when 
the  ADVANCING  counts  overflowed  a physical  printer  page  boundary 
(paper  perforations)^  the  system  added  si*  lines  to  the  acvancino 
count.  ADVANCING  should  take  place  without  regard  for  physical  page 
site  eicept  when  the  "PAGE”  or  "aneaonic"  options  are  usec>  or  page 
site  is  controlled  by  the  LINAGE  clause. 

SQ102  through  SQ121  and  SQ1S1  through  S01S3 

A . Coap i I at  ion 
No  errors. 

B.  Execution 
No  errors. 

SEQUENTIAL  I-O  LEVEL  2 
SQ201  through  SQ212 
A.  Coapilation 
No  errors. 

6.  Execution 
No  errors. 

S0213 

A.  Coapilation 
No  errors. 

B.  Execution 

In  WRT-TEST-01»  WRT-TEST-02*  and  WRT-TEST-03»  two  extraneous 
characters  appeared  in  coluans  1 and  2 of  each  detail  line. 

This  appeared  to  be  a storage  allocation  problem  on  the  part 
of  the  compiler  since  the  errors  followed  a pattern  and  the 
extraneous  characters  were  the  sane  as  the  contents  of  the 
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WORKING-STORAGE  entry  iaiaediately  preceding  the  affected 
detail  line  entry. 

SQ2T4 

A.  Coapi  lation 
No  errors. 

6.  Execution 
No  errors  . 

SC21S 

A.  Compilation 
No  errors. 

B.  Execution 

Same  exception  that  uas  found  in  S0101. 

SQ216  through  SQ2T8 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 
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SORT-RERGE  LEVEL  1 
ST101  through  ST117 

A.  Coapilation 
Ko  errors. 

B.  Execution 
No  errors. 

SORT-FERGE  LEVEL  2 

A.  Coapilation 
No  er  rors  . 

B.  Execution 
No  errors. 
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TABLE  HANDLING  LEVEL  1 

THiOl  through  THIII^  and  TH151  and  TH152 

A.  Compilation 
Ho  errors. 

B.  Execution 
No  errors. 

TABLE  HANDLING  LEVEL  2 
TH201  through  TH220 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 
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FIPS  LEVEL  FLAGGING 

Althounh  not  currently  part  of  an  official  validation^  the  coepiler 
being  validated  had  coepiler  options  available  to  reauest  the  flagging 
(Barking)  of  all  syntactical  constructs  that  exceed  a user-designated  FIPS 
COBOL  level,  for  the  subject  coapiler^  the  coepiler  options  and  their 
corresponding  FIPS  levels  are: 


OPTION 

LEVEL 

LL 

low  level 

LIL 

low  intermediate 

HIL 

high  intermediate 

HL 

high  level 

A set  of  the  CCVS74  prograes  vas  selected  and  compiled  under  the  various 
options.  No  errors  in  proper  flagging  were  discovered.  Honeywell  extensions 
to  the  standard  COBOL  language  were  flagged  at  all  four  levels. 
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|l5.  Supplementary  Notei^ 


161  Abstracts 

This  Validation  Summary  Report  (VSR)  for  the  Honeywell  Series  60  Level  66 COBOL 

Compiler  Version  CB3.0  ( GCOS  Release  Version  31 ) provides  a consolidate. 

summary  of  the  results  obtained  from  the  validation  of  the  subject  compiler  against 
the  1974  COBOL  Standard  (X3.23-19[j  /FIPS  PUB  21-1).  The  compiler  was  validated  at 
the  High  level  of  FIPS  PUB  21-L  The  VSR  is  made  up  of  several  sections  showing 
the  discrepancies  found.  These  include  an  overview  of  the  validation  which  lists  all 
categories  of  discrepancies  by  level/module  within  X3. 23-19 74,  a section  relating 
the  categories  of  discrepancies  to  each  of  the  Federal  levels  of  the  language;  and 
a detailed  listing  of  discrepancies  together  with  the  tests  which  were  failed. 
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